#!/usr/bin/perl -w

use Test::More tests => 2;
use File::Temp;

# =============================================================
# Cargamos el modulo
# ==============================================================
use_ok('Bench::Test::Base');

my $tempdir = File::Temp::tempdir( CLEANUP => 1 );

my $base = Bench::Test::Base->new (
   WORKDIR => $tempdir
);

my $tempfile = "$tempdir/testname.base";

open FH, "> $tempfile"
   or die "An error ocurred when trying to open $tempfile";
 
print FH "Content of base file";
close FH
   or die "An error ocurred when trying to close $tempfile";

is($base->get_result(undef, 'testname'), 'Content of base file', 'Get result from file');
